1 POKE53280,PEEK(53281):PRINT"[147]'START-ADRESSE' EINES FILES"
2 INPUT"FILE-NAME ";F$:PRINT"'START-ADRESSE': ";:OPEN15,8,15:OPEN1,8,3,"0:"+F$
3 INPUT#15,EN,EN$:IFEN<>0THENPRINTEN,EN$:PRINT#15,"I":GOTO5
4 GET#1,L$:GET#1,H$:X$=H$:GOSUB6:H=X*256:X$=L$:GOSUB6:L=X:PRINTH+L
5 CLOSE1:CLOSE15:END
6 IFX$=""THENX=0:RETURN
7 X=ASC(X$):RETURN